Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue25/tu32/TU32.ZIP/TU32Demo/BtchDemo/bthmain2.dfm/bthmain2.txt

Text File | 1996-11-21 | 7.1 KB | 311 lines

object FormBatchAliasMain: TFormBatchAliasMain
  Left = 375
  Top = 154
  Width = 497
  Height = 397
  Caption = 'Batch Verify & Rebuild '
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  Visible = True
  OnCreate = FormCreate
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 489
    Height = 364
    Align = alClient
    TabOrder = 0
    object Label1: TLabel
      Left = 9
      Top = 16
      Width = 93
      Height = 13
      Caption = 'Batch DataBase'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 5
      Top = 42
      Width = 99
      Height = 13
      Caption = 'File Specification'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label3: TLabel
      Left = 246
      Top = 14
      Width = 99
      Height = 27
      Alignment = taCenter
      Caption = 'Tables in Batch DataBase'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      WordWrap = True
    end
    object Label4: TLabel
      Left = 6
      Top = 114
      Width = 99
      Height = 31
      Alignment = taCenter
      Caption = 'Borrow Structure DataBase'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      WordWrap = True
    end
    object Label5: TLabel
      Left = 253
      Top = 150
      Width = 95
      Height = 39
      Alignment = taCenter
      Caption = 'Files in Batch AND found in the Borrow Structure DB'
      WordWrap = True
    end
    object Label6: TLabel
      Left = 248
      Top = 120
      Width = 97
      Height = 25
      Alignment = taCenter
      Caption = 'Borrow Structure List'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      WordWrap = True
    end
    object ButtonFixAll: TButton
      Left = 197
      Top = 230
      Width = 102
      Height = 33
      Caption = 'Verify && Rebuild'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = ButtonFixAllClick
    end
    object ListBoxStatus: TListBox
      Left = 7
      Top = 272
      Width = 472
      Height = 81
      TabStop = False
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Courier New'
      Font.Style = []
      ItemHeight = 15
      ParentFont = False
      TabOrder = 5
    end
    object ButtonVerifyOnly: TButton
      Left = 13
      Top = 230
      Width = 76
      Height = 33
      Caption = 'Verify Only'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnClick = ButtonVerifyOnlyClick
    end
    object ButtonViewErrTable: TButton
      Left = 91
      Top = 230
      Width = 105
      Height = 33
      Caption = 'View Error Table'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = ButtonViewErrTableClick
    end
    object ButtonSaveLog: TButton
      Left = 300
      Top = 230
      Width = 104
      Height = 33
      Caption = 'Save Batch Log'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      OnClick = ButtonSaveLogClick
    end
    object ButtonClose: TButton
      Left = 404
      Top = 230
      Width = 64
      Height = 33
      Caption = 'Close'
      Default = True
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ModalResult = 1
      ParentFont = False
      TabOrder = 4
      OnClick = ButtonCloseClick
    end
    object ComboBoxTblAlias: TComboBox
      Left = 106
      Top = 11
      Width = 113
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 6
      OnChange = ComboBoxTblAliasChange
    end
    object EditFilePattern: TEdit
      Left = 107
      Top = 39
      Width = 113
      Height = 21
      TabOrder = 7
      Text = '*.DB'
      OnChange = EditFilePatternChange
    end
    object ListBoxTables: TListBox
      Left = 353
      Top = 12
      Width = 121
      Height = 98
      TabStop = False
      ItemHeight = 13
      TabOrder = 8
    end
    object RadioGroupRebuildOptions: TRadioGroup
      Left = 6
      Top = 63
      Width = 316
      Height = 48
      Caption = 'Rebuild Options'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ItemIndex = 0
      Items.Strings = (
        'All Damaged Tables - Borrow Structure if Available'
        'Only Damaged Tables in Borrow Structure List')
      ParentFont = False
      TabOrder = 9
    end
    object ComboBoxBorrowAlias: TComboBox
      Left = 107
      Top = 117
      Width = 113
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 10
      OnChange = ComboBoxBorrowAliasChange
    end
    object ListBoxMissing: TListBox
      Left = 353
      Top = 120
      Width = 121
      Height = 97
      TabStop = False
      ItemHeight = 13
      TabOrder = 11
    end
    object Button1: TButton
      Left = 265
      Top = 193
      Width = 71
      Height = 22
      Caption = 'Invert List'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 12
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 88
      Top = 168
      Width = 89
      Height = 33
      Caption = 'Button2'
      TabOrder = 13
      OnClick = Button2Click
    end
  end
  object TUtilityVerReb: TTUtility
    CBActive = True
    Table = Table1
    tErrTableName = '__TUERR.DB'
    tKeyVTableName = 'PROBLEMS.DB'
    tProbTableName = 'KEYVIOL.DB'
    AltStructAlways = False
    AlwaysRebuild = False
    OnInfoVerify = TUtilityVerRebInfoVerify
    OnInfoRebuild = TUtilityVerRebInfoRebuild
    OnInfoVerReb = TUtilityRestInfoVerReb
    Left = 112
    Top = 290
  end
  object SaveDialogActivityLog: TSaveDialog
    DefaultExt = 'txt'
    Filter = 'Text Files(*.txt)|*.txt'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofNoReadOnlyReturn]
    Title = 'Create New Batch Table'
    Left = 308
    Top = 294
  end
  object TUtilityVerOnly: TTUtility
    CBActive = True
    tErrTableName = '__VERERR.DB'
    tKeyVTableName = 'KEYVIOL.DB'
    tProbTableName = 'PROBLEMS.DB'
    AltStructAlways = False
    AlwaysRebuild = False
    OnInfoVerify = TUtilityVerRebInfoVerify
    OnInfoRebuild = TUtilityVerRebInfoRebuild
    Left = 198
    Top = 290
  end
  object Table1: TTable
    Left = 40
    Top = 168
  end
end